home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
comm
/
boyan51a.zip
/
MAKEMAIL.BSC
< prev
next >
Wrap
Text File
|
1993-11-15
|
23KB
|
466 lines
\\
\\ Make mail script by Lee Breeden for PCBoard systems
\\
\\ This script is used to make a mail script for calling a pcboard and
\\ downloading mail unattended, uplaoding or downloading files.
\\
|logon
\ko[245]
\svv[]\SVS[]\sv0[]\sv1[]\sv2[]\sv3[]\sv4[]\sv5[]\sv6[]\sv7[]\sv8[]\sv9[]\svh[]\lvs[]
\svz[]\svy[]
|Script
\bl[start]
\bl[more]
\eb
|more
\svv[]\SVS[]\sv0[]\sv1[]\sv2[]\sv3[]\sv4[]\sv5[]\sv6[]\sv7[]\sv8[]\sv9[]\svh[]\lvs[]
\svz[]\svy[]
\bl[continue]
\bl[make]
\bl[append4]
\bl[editit]
\eb
|start
\zs
\dm8,1[ ]
\dm8,2[ ╔════════════════════════════════════════════════════════════════╗ ]
\dm8,3[ ║ Boyan 5.0 script generator. This will not work with 4.1 or 3.0 ║ ]
\dm8,4[ ║ Welcome: This is a Boyan Script that will walk you ║ ]
\dm8,5[ ║ thru setting up a mail or regular script. The information ║ ]
\dm8,6[ ║ that you will be asked is used in the bbs system script. ║ ]
\dm8,7[ ║ There are some things that you must have handy before ║ ]
\dm8,8[ ║ going any further. ║ ]
\dm8,9[ ║ ║ ]
\dm8,10[ ║ Mail door number ║ ]
\dm8,11[ ║ ProDoor number ║ ]
\dm8,12[ ║ Mail Packet name *.qwk ║ ]
\dm8,13[ ║ Type of door that you are going to ║ ]
\dm8,14[ ║ enter to get your mail. ║ ]
\dm8,15[ ║ ║ ]
\dm8,16[ ║ There are some commands that will be set for you that ║ ]
\dm8,17[ ║ you can edit later. ║ ]
\dm8,18[ ║ ║ ]
\dm8,19[ ║ If you don't have all of the above handy then HIT ESC ║ ]
\dm8,20[ ║ NOW! ║ ]
\dm8,21[ ║ ║ ]
\dm8,22[ ╚════════════════════════════════════════════════════════════════╝ ]
\dm8,23[ ]
\kv0[ Hit enter to continue ESC to escape> ]
\zs
\gb[name]
|name
\MVZ[111]\MVY[112] \SV0[%VZ] \LV0[3]
\II+ `,%V0[\SC[pcboard;name]\gb[name]]
\ie+%vz, [\kv0[Enter your first name> `]]
\ie+%vz, [\sv1[%V0 "`]\SM111[%V1]]
\ie+%vy, [\kv0[Enter your last name> `]]
\ie+%vz, [\SM112[%v0]]
\ie-%vz, [\bl[dispname]]
\ie+%pw, [\bl[password]]
\dm8,23[ checking download directory for qwk file lists ]
|password
\dm6,10[ ╔══════════════════════════════════════╗
\dm6,11[ ║ Currently you don't have a ║
\dm6,12[ ║ default password defined. So lets ║
\dm6,13[ ║ set one now. You will have to ║
\dm6,14[ ║ select ""P"" from the screen . ║
\dm6,15[ ║ You can have a different one on ║
\dm6,16[ ║ every system in your phone directory.║
\dm6,17[ ╚══════════════════════════════════════╝
\kvo[ Hit enter to continue]\SN[ Select "P" for password ]\cb[s]
\zs
|dispname
\MVZ[111]\SVX[%VZ]\ii+" `,%VX[\LVX[%IM] \MVY[112] \SVZ[%VX %Vy] \lvZ[30]
\dm6,10[ ╔══════════════════════════════════════╗
\dm6,11[ ║ This is the way that your name ║
\dm6,12[ ║ well be used in these scripts. ║
\dm6,13[ ║ %VZ ║
\dm6,14[ ╚══════════════════════════════════════╝
\kv0[Hit enter to continue > `]
\zs
|continue
\zs
\dm6,7[ ╔═══════════════════════════════════════╗ ]
\dm6,8[ ║ Enter the name for the ║ ]
\dm6,9[ ║ Script that you would like to ║ ]
\dm6,10[ ║ create. ie: BBS name EdsHome ║ ]
\dm6,11[ ╚═══════════════════════════════════════╝ ]
{
\kvs________[Script name > ]\SVT[%vs.bsc]\lvt[12]
\FE+%S:%VS.bsc[\GB[bsc]]
\bl[make]
|make
\zs Creating script %S:%VS.bsc {
\AF%S:%VS.bsc["\"\ This script automates Mail runs to PC-BOARD type Bulletin Boards. ]
\AF%S:%VS.bsc["\"\ You must set the following macros with BOYAN's configuration module: ]
\AF%S:%VS.bsc["\"\ "\! = Macro # 111 = Your first name ]
\AF%S:%VS.bsc["\"\ "\"@ = Macro # 112 = Your last name ]
\AF%S:%VS.bsc["\"\ "%PW = Is your defined password. ]
\AF%S:%VS.bsc["\"\ "\sv1 used for mail system report file *.rep. ]
\AF%S:%VS.bsc["\"\ "\sv2 used for prodoor option number. ]
\AF%S:%VS.bsc["\"\ "\sv3 used for mail door option number. ]
\AF%S:%VS.bsc["\"\ "\sv4 used for mail packet system name *.qwk. ]
\AF%S:%VS.bsc["\"\ "\sv5 used for up-file name or names. ]
\AF%S:%VS.bsc["\"\ "\sv6 used for file upload description. ]
\AF%S:%VS.bsc["\"\ "\sv7 used for file upload description, leave blank if not used ]
\AF%S:%VS.bsc["\"\ "\sv8 used for file upload description, leave blank if not used ]
\AF%S:%VS.bsc["\"\ "\sv9 used for file upload description, leave blank if not used ]
\AF%S:%VS.bsc["\"\ "\sv0 used for system name in call back option. ]
\AF%S:%VS.bsc["\"\ "\svA used to set option for call back block. ]
\AF%S:%VS.bsc["\"\ "\svB used for setting number of mail packets to keep. ]
\AF%S:%VS.bsc["\"\ "\svC used for setting file scan option <U>pload <A>ll etc. ]
\AF%S:%VS.bsc["\"\ "\svD used internally to read variable ]
\AF%S:%VS.bsc["\"\ "\svE used internally for selection option ]
\AF%S:%VS.bsc["\"\ "\svF used for setting cursor position in mail door. ]
\AF%S:%VS.bsc["\"\ "\svG used for setting the maximum number of messages in mail door. ]
\AF%S:%VS.bsc["\"\ "\svD used ALSO for closing file download block.
\AF%S:%VS.bsc["\"\ "\svF used ALSO for closing file scan block.
\AF%S:%VS.bsc["\"\ "\svG used ALSO for closing file MailDL block.
\AF%S:%VS.bsc["\"\ "\svM used for closing Mail block.
\AF%S:%VS.bsc["\"\ "\svQ used for closing Quest block.
\AF%S:%VS.bsc["\"\ "\svS used for closing MailUL block.
\AF%S:%VS.bsc["\"\ "\svU used for closing UL File block.
\AF%S:%VS.bsc["\"\ Need to have in boyan macro #7 \AT+[\qd"] ]
\AF%S:%VS.bsc["\"\ as last command. ]
\AF%S:%VS.bsc["\"\Script assumes that you put your message replies in upload dir. ]
\AF%S:%VS.bsc["\"\Script assumes that you put your messages packets in DN dir. ]
\AF%S:%VS.bsc["\"\Script assumes that you use Zmodem configured as Z. ]
\AF%S:%VS.bsc[ ]
\AF%S:%VS.bsc[|LOGON "\"\ Start script blocks ]
\AF%S:%VS.bsc["\ST"[ » Press <TAB> for Menu options «"]
\AF%S:%VS.bsc["\IE+OFF,"%LD["\LD+"] "\"\ Turn on Log to disk file ]
\AF%S:%VS.bsc["\SVN["]"\SVF["]"\SVG["]"\SVM["]\SVQ["]\SVS["]"\SVU["]"\SVX["] ]
\AF%S:%VS.bsc["\SVY["%SC"] ]
\\
\dm12,10[ ╔═══════════════════════════════════════╗ ]
\dm12,11[ ║ ║ ]
\dm12,12[ ║ Enter Mail Door # ║ ]
\dm12,13[ ║ ║ ]
\dm12,14[ ╚═══════════════════════════════════════╝ ]
\\{
\KV2`1_[Enter Mail door number> ]
\\dm14,11[ ╔═══════════════════════════════════════╗ ]
\\dm14,12[ ║ ║ ]
\\dm14,13[ ║ Enter Mail Door # ║ ]
\\dm14,14[ ║ ║ ]
\\dm14,15[ ╚═══════════════════════════════════════╝ ]
\\{
\\KV3[Enter ProDoor number> ] \AF%S:%VS.bsc["\SV3[%v3"] "\"\enter prodoor number ]
\dm16,12[ ╔═══════════════════════════════════════╗ ]
\dm16,13[ ║ ║ ]
\dm16,14[ ║ Enter mail packet name ║ ]
\dm16,15[ ║ EdsHome.qwk with extension ║ ]
\dm16,16[ ╚═══════════════════════════════════════╝ ]
{
\Kv4%VS.qwk[Enter Mail packet> ]
\dm18,13[ ╔═══════════════════════════════════════╗ ]
\dm18,14[ ║ ║ ]
\dm18,15[ ║ Enter Reply name ie: ║ ]
\dm18,16[ ║ EdsHome.rep with entension ║ ]
\dm18,17[ ╚═══════════════════════════════════════╝ ]
{
\Kv1%VS.rep[Enter Mail packet> ]
\bl[append]
\zs
\dm8,1[ ]
\dm8,2[ ╔════════════════════════════════════════════════════════════════╗ ]
\dm8,3[ ║ ║ ]
\dm8,4[ ║ Which Mail Door do you use for getting the mail? ║ ]
\dm8,5[ ║ ║ ]
\dm8,6[ ║ [1"] MarkMail Door ║ ]
\dm8,7[ ║ ║ ]
\dm8,8[ ║ [2"] Qmail Door ║ ]
\dm8,9[ ║ ║ ]
\dm8,10[ ║ [3"] Kmail Door ║ ]
\dm8,11[ ║ ║ ]
\dm8,12[ ║ [4"] Megamail Door ║ ]
\dm8,13[ ║ ║ ]
\dm8,14[ ║ [5"] TomCat Door ║ ]
\dm8,15[ ║ ║ ]
\dm8,16[ ║ [6"] RoseMail Door ║ ]
\dm8,17[ ║ ║ ]
\dm8,18[ ║ [7"] OffLine Mail ║ ]
\dm8,19[ ║ ║ ]
\dm8,20[ ║ ║ ]
\dm8,21[ ╚════════════════════════════════════════════════════════════════╝ ]
\dm8,22[ ]
{
\KV0`1[Enter door number here> ]
\IV0+1[\SVm[MM]\svV[4]\svw[35]]
\IV0+2[\SVm[QM]\svV[4]\svw[35]]
\IV0+3[\SVm[KM]\svv[12]\svw[31]]
\IV0+4[\SVm[MR]\svV[4]\svw[35]]
\IV0+5[\SVm[TM]\svV[4]\svw[35]]
\IV0+6[\SVm[RM]\svV[4]\svw[35]]
\IV0+7[\SVm[OM]\svV[4]\svw[35]]
\AF%S:%VS.bsc["\SVF[%vw"] "\"\ Cursor position
\AF%S:%VS.bsc["\SVG[800"] "\"\ Maximum message counter for mail
\AF%S:%VS.bsc["\SVH[%VV"] "\"\ Timer to wait for NO messages 2-15 sec
\AF%S:%VS.bsc["\SVI["%SS"] "\"\ Sets script running to system name
\dm18,13[ ╔═══════════════════════════════════════╗ ]
\dm18,14[ ║ Do you want to extract the Newfile.dat║ ]
\dm18,15[ ║ file from the QWk packet and add the ║ ]
\dm18,16[ ║ list to a file called Newfiles.lst ║ ]
\dm18,17[ ╚═══════════════════════════════════════╝ ]
{
\Kv1N[Enter N/y > `]
\iv1+n[\sv1[%V1]]
\iv1+y[\sv1[X]]
\AF%S:%VS.bsc["\SVX[%V1"] "\"\ Sets option to extract Newfiles.dat from QWK packet]
\AF%S:%VS.bsc["\GB[Menu"]
\AF%S:%VS.bsc[]
\AF%S:%VS.bsc["|Menu]
\bl[append1]
\AF%S:%VS.bsc["\CA+["\SC[SCRIPT;NAME"]"] "\"\ Enter name block ]
\AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"] "\"\ Checking for errors ]
\AF%S:%VS.bsc["\CA+["\SC[SCRIPT;QUEST"]"] "\"\ Question block ]
\AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"] "\"\ Checking for errors ]
\eb
\zs
\dm20,14[ ╔═══════════════════════════════════════╗ ]
\dm20,15[ ║ ║ ]
\dm20,16[ ║ Do you use ProDoor? ║ ]
\dm20,17[ ║ ║ ]
\dm20,18[ ║ [Y"] Yes ║ ]
\dm20,19[ ║ [N"] No ║ ]
\dm20,20[ ╚═══════════════════════════════════════╝
{
\KV0[Y/N> ]
\IV0+Y[\bl[append3]\EB \\ If "Y" invoke block edit
\IV0+N[\eb] \\ If "N" go to "Files" block
\eb
|editit
\ZS
\dm6,7[ ╔═══════════════════════════════════════╗ ]
\dm6,8[ ║ Do you wish to edit the ║ ]
\dm6,9[ ║ %Vt before exiting ║ ]
\dm6,10[ ║ [Y"]es [N"]o [M"]ore ║ ]
\dm6,11[ ╚═══════════════════════════════════════╝ ]
{
\Kv0`Y[ Y/n> ]
\IV0+Y[\GB[edit]] \\ If "Y" invoke block edit
\IV0+N[\GB[end] \\ If "D" go to "end" block
\IV0+M[\GB[More] \\ If "D" go to "end" block
\eb
|bsc
\zs
\dm6,1[ ╔═══════════════════════════════════════╗ ]
\dm6,2[ ║ File %Vt already exist ║ ]
\dm6,3[ ║ cannot re create it. Must ║ ]
\dm6,4[ ║ delete it or use editor ║ ]
\dm6,5[ ╚═══════════════════════════════════════╝ ]
{
\dm6,7[ ╔═══════════════════════════════════════╗ ]
\dm6,8[ ║ Do you wish to edit file ║ ]
\dm6,9[ ║ [Y"] Yes to edit script %Vt║ ]
\dm6,10[ ║ [A"] Abort script ║ ]
\dm6,11[ ║ [D"] to Delete file and continue ║ ]
\dm6,12[ ╚═══════════════════════════════════════╝ ]
{
\KV0`D[ Y,A or D > ]
\IV0+Y[\zs\bl[edit]] \\ If "Y" invoke block edit
\IV0+D[\zs\bl[delete]] \\ If "D" go to "Files" block
\IV0+A[\zs\bl[end]] \\ If "A" go to "Shell" block
\\bl[make]
\\bl[append4]
\\bl[editit]
\eb
|edit
\dc-[%WC %S:%VS.bsc]
\bl[end]\eb
\ab
|delete
\dc-[del %S:%VS.bsc]
\eb
|append1
\AF%S:%VS.bsc["\DM[CONNECTED TO "%SN"] "\"\ System display message ]
\AF%S:%VS.bsc["\to[40"]"\pl "\"\ Set timer ]
\AF%S:%VS.bsc["\"\CA-["\eb"] "\"\ Check carrier currently off]
|append
\AF%S:%VS.bsc["\SV0["%SN"] "\"\ set existing system number to "%v0 ]
\AF%S:%VS.bsc["\sv1[%v1"] "\"\ Report packet name]
\AF%S:%VS.bsc["\SV2[%v2"] "\"\ enter door number [#"] ]
\AF%S:%VS.bsc["\sv4[%v4"] "\"\ Mail Packet name]
\AF%S:%VS.bsc["\SV5[ "] "\"\ Name of file to UpLoad]
\AF%S:%VS.bsc["\SV6[ "]"\"\ file description]
\AF%S:%VS.bsc["\SV7[ "]"\"\ file description]
\AF%S:%VS.bsc["\SV8[ "]"\"\ file description]
\AF%S:%VS.bsc["\SV9[ "] "\"\ enter file name to download]
\zs
\dm12,10[ ╔═══════════════════════════════════════╗ ]
\dm12,11[ ║ How many mail packets do you wish to ║ ]
\dm12,12[ ║ save on your disk for this system ║ ]
\dm12,13[ ║ Enter 1- 9 ║ ]
\dm12,14[ ╚═══════════════════════════════════════╝ ]
{
\KV0`1[Enter number of packets> ]\AF%S:%VS.bsc["\SVB[%V0"] "\"\ enter number of qwk's to keep
\dm14,11[ ╔═══════════════════════════════════════╗ ]
\dm14,12[ ║ Do you want to scan All directories ║ ]
\dm14,13[ ║ for new files or just the Upload ║ ]
\dm14,14[ ║ Enter <U>pload <A>ll or <N>one ║ ]
\dm14,15[ ╚═══════════════════════════════════════╝ ]
{
\KV0U[Enter U, A, or N > ] \AF%S:%VS.bsc["\SVC[%v0"] "\"\ scanning directories for files A all or U uploads]
\SVC[%V0]
|append4
\IE-OM,%VM[\AF%S:%VS.bsc["\CA+"["\SC"[SCRIPT;mail"]"] "\"\ Mail block ] ]
\IE+OM,%VM[\AF%S:%VS.bsc["\CA+"["\SC"[SCRIPT;Omail"]"] "\"\ Mail block ] ]
\AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"] "\"\ Checking for errors ]
\AF%S:%VS.bsc["\CA+["\FE+"%u:"%V1["\SC[SCRIPT;%VMul"]"]"] "\"\ Upload block]
\AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"] "\"\ Checking for errors ]
\AF%S:%VS.bsc["\CA+["\SC[SCRIPT;%VMdl"] "\"\ Mail download ]
\AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"] "\"\ Checking for errors ]
\AF%S:%VS.bsc["\CA+["\FE+"%S:"%VI.dow["\SC[SCRIPT;dowlst"]"]"] ]
\AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"] "\"\ Checking for errors ]
\AF%S:%VS.bsc["\CA+["\SC[SCRIPT;FILES"]"] "\"\ Scan for new files block]
\AF%S:%VS.bsc["\CA+["\ie+"%VX,X["\SC[script;extfile"]"]"] "\"\ Extract newfiles.dat from qwk packet ]
\AF%S:%VS.bsc[ ]
\AF%S:%VS.bsc["\"\CA+["\FE+"%U:"%V5["\SC[SCRIPT;upload"]"]"] "\"\when doing upload or download remove]
\AF%S:%VS.bsc["\"\CA+["\FE-"%D:"%V9["\SC[SCRIPT;download"]"]"] "\"\slash from beginning of line]
\AF%S:%VS.bsc[ ]
\AF%S:%VS.bsc["\CA-["\AB"]"\CA+["\gs[SCRIPT;Logoff"]"] "\"\ Log off block ]
\AF%S:%VS.bsc["\ab]
\AF%S:%VS.bsc[]
\AF%S:%VS.bsc["|*TAB "\"\ This runs automatically when <Tab> pressed ]
\AF%S:%VS.bsc["\SV0[1"] "\KS ]
\AF%S:%VS.bsc["\DM38,"%V0[ ╔═══════════════════════════════════════╗ "]"\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0[ ║ OnLine MENU "%HR:"%MI "%Mo/"%DA/"%YR ║ "]"\+V0[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ╠═══════════════════════════════════════╣ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <C> = find main Command ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <D> = Download a file ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <DM>= Download Mail (from mail door) ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <E> = Edit Script ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <F> = File Manager ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <G> = Goodbye ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <J> = Jump to DOS ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <L> = Log to disk ...status "%LD ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <M> = Mail (check for your mail) ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <N> = New File Scan ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <O> = Open Door ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <P> = edit Phone directory ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <Q> = Quick Note file ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <S> = Scroll-back buffer ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <T> = Termanial Mode ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <U> = Upload a file ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <UM>= Upload Mail (from mail door) ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ╟───────────────────────────────────────╢ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║ <R> = RESUME Script <?> Manual Macro ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ║<Esc>= ABORT script <V>iew Settings ║ "] "\+V0"[1"]]
\AF%S:%VS.bsc["\DM38,"%V0"[ ╚═══════════════════════════════════════╝ "]]
\AF%S:%VS.bsc["\KO"[30"] "\BB+ "\KV0__"[Enter OPTION: "] "\BB- "\RS ]
\AF%S:%VS.bsc["\IV0+C"["\SVQ["]"\SC[SCRIPT;quest"]"\gb"[termlines"]"] ]
\AF%S:%VS.bsc["\IV0+DM"["\SVG["]"\SC[SCRIPT;%VMdl"]"] ]
\AF%S:%VS.bsc["\IV0+D"["\SVD["]"\SC[SCRIPT;Download"]"] ]
\AF%S:%VS.bsc["\IV0+E"["\DC-"["%WC "%S:"%VY"]"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+F"["\FM"["]"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+G"["\SC[SCRIPT;logoff"]"\AB"] ]
\AF%S:%VS.bsc["\IV0+J"["\JD"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+L"["\LD*"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+M"[R Y"{"\GB"[termlines"]"] ]
\AF%S:%VS.bsc["\IV0+?"["\KV9"[MACRO:"] @V9 "\LV9"["] "\IE+"%LV,1"["\SV9"["%V9"]"]"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+N"["\SVF["]N S %VC N"{"\GB"[termlines"]"] ]
\AF%S:%VS.bsc["\IV0+O"["\SVM["]op "%V2 "{"\GB"[termlines"]"] ]
\AF%S:%VS.bsc["\IV0+P"[ "\DI"["] "\GB"[*Tab"] "] ]
\AF%S:%VS.bsc["\IV0+Q"["\DC-["%WC "%B:notes.txt"]"] ]
\AF%S:%VS.bsc["\IV0+R"["\gs["%Vy;menu"]"] ]
\AF%S:%VS.bsc["\IV0+S"["\RB"\gb"[*Tab"]"] ]
\AF%S:%VS.bsc["\IV0+T"["\gb"[termlines"]"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+UM"["\SVS["]"\SC[SCRIPT;%VMul"]"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+U"["\SVU["]"\SC[SCRIPT;upload"]"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\IV0+V"["\SVU["]"\SC[SCRIPT;settings"]"\gb"[*tab"]"] ]
\AF%S:%VS.bsc["\GB"[*TAB"] ]
\AF%S:%VS.bsc[ ]
\AF%S:%VS.bsc[|TermLines ]
\AF%S:%VS.bsc["\to"[120"] ]
\AF%S:%VS.bsc["\ST"[ » Press <TAB> for Menu options «"] ]
\AF%S:%VS.bsc["\RE"["\CA-"["\ab"] "\IK+"["%IK"]"] ]
\AF%S:%VS.bsc[ ]
\AF%S:%VS.bsc["|"*WrapUp ]
\AF%S:%VS.bsc["\DM23,1"[Press <ESC> TWICE or Run Macro "#7"]"\PA"[2"] ]
\AF%S:%VS.bsc["\MA"[7"] ]
\AF%S:%VS.bsc[ ]
|end
\zs
\bl[time]
\bl[timeEdit]
\svp[%V0:%Mi]\lvp[5]
\svo[%Mo"/%Da]\lvo[5]
\svy[%VP %v1]\lvy[10]
\dm20,14[ ╔═══════════════════════════════════╗ ]
\dm20,15[ ║ %Vt Script ║ ]
\dm20,16[ ║ ║ ]
\dm20,17[ ║ Completed at %Vy ║ ]
\dm20,18[ ║ on %Vo ║ ]
\dm20,19[ ║ ║ ]
\dm20,20[ ╚═══════════════════════════════════╝ ]
\svb[]\ko[]
\\zs
\eb
|Time \\ 12 hr clock
\SV0[%Hr]\eb
|timeEdit
\IE+%V0,0 `[\bl[AM]\eb]
\IE+%V0,10[\bl[AM1]\eb]
\IE+%V0,11[\bl[AM1]\eb]
\IE+%V0,12[\bl[PM1]\eb]
\IE+%V0,13[\+V0[-12]\bl[PM]\eb]
\IE+%V0,14[\+V0[-12]\bl[PM]\eb]
\IE+%V0,15[\+V0[-12]\bl[PM]\eb]
\IE+%V0,16[\+V0[-12]\bl[PM]\eb]
\IE+%V0,17[\+V0[-12]\bl[PM]\eb]
\IE+%V0,18[\+V0[-12]\bl[PM]\eb]
\IE+%V0,19[\+V0[-12]\bl[PM]\eb]
\IE+%V0,20[\+V0[-12]\bl[PM]\eb]
\IE+%V0,21[\+V0[-12]\bl[PM]\eb]
\IE+%V0,22[\+V0[-12]\bl[PM1]\eb]
\IE+%V0,23[\+V0[-12]\bl[PM1]\eb]
\IE-%V0,abc[\bl[AM]\eb]
\eb
|AM
\SV1[AM`]\eb
\eb
|AM1
\SV1[AM]\eb
\eb
|PM
\SV1[PM `]\eb
\eb
|PM1
\SV1[PM`]\eb
\eb \\ timer blocks